Sandbox/Old object possibilities/bickeldocksum.default.R

In akreutzmann/trafo: Estimation, Comparison and Selection of Transformations

#' #' Bickel-Doksum Default
#' #'
#' #' Bickel-Doksum estimation
#' #' @param object a data.frame or a matrix, whose first column is the dependent variable and the rest of the columns are the independent variables.
#' #' @param \dots additional arguments to be passed to the estimation function;  see bickeldoksumEst()
#' #' @return an object of class \code{transformation}; see bickeldoksumEst()
#' #' @keywords internal
#' #' @export
#' bickeldoksum.default <- function(object, ...) {
#'   data <- object
#'   nc <- ncol(data)
#'   nr <- nrow(data)
#'   if (is.null(y <- data[, 1]) || is.null(x <- data[, 2:nc])) 
#'     stop("components Y and X must no be empty")  
#'   if (any(x[, 1] != 1)) x <- cbind(rep(1, nr), x) 
#'   bickeldoksumEst(y, x, ...)
#' }